#open(BUFF,"pos_temp.txt") or die "no file found pos_temp.txt\n";
open(BUFF,"neg_temp.txt") or die "no file found neg_temp.txt\n";
open(WRBUFF,">Potential_Negative_converted_ids_probe.txt") or die "not able to write the file Potential_Positive_converted_ids_probe.txt\n";
#open(WRBUFF,">Potential_Positive_converted_ids_probe.txt") or die "not able to write the file Potential_Positive_converted_ids_probe.txt\n";
$line=<BUFF>;
print WRBUFF $line;
while(<BUFF>)
{

	chomp($_);
	@a=split("\t",$_);
	if(exists($hash{$a[1]}))
	{
		@b=split("\t",$hash{$a[1]});
		$b[0]=$b[0]."__$a[0]";
		$_=join("\t",@b);
		$hash{$a[1]} = $_;	
	}
	else
	{
		$hash{$a[1]} = $_;
	}	
}
while(my($key,$value)=each %hash)
{
	print WRBUFF $value."\n";
}
